home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_10_1986_Transactor_Publishing.d64 / 1541 write prot (.txt) next >
Commodore BASIC  |  2023-02-26  |  193b  |  10 lines
  1. 5 rem check for write-protect (1541)
  2. 10 open 15,8,15
  3. 20 print#15,"m-r"chr$(0);chr$(28)
  4. 30 get#15,a$: a=asc(a$+chr$(0))
  5. 40 if(a and 16)then 70
  6. 50 print"write protect is on!"
  7. 60 goto 80
  8. 70 print"no write protect"
  9. 80 close 15
  10.